home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / teste.dxr / 00001.ls next >
Encoding:
Text File  |  1996-03-21  |  167 b   |  11 lines
  1. on exitFrame
  2.   global cont, temp
  3.   repeat while cont < 5
  4.     set temp to random(8)
  5.     put temp
  6.     put cont
  7.     set cont to cont + 1
  8.   end repeat
  9.   go(the frame)
  10. end
  11.